with xpa.awk;

procedure test_awk is
	package awk renames xpa.awk;

	hnd: awk.handle;
begin
	hnd := awk.open;
	awk.parse (hnd);
	awk.close (hnd);
end test_awk;

